home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 09 - 1993 / 09.06 Jun 93 / TReportPrinter / TDemoDocument.cp < prev    next >
Encoding:
Text File  |  1992-11-01  |  4.3 KB  |  146 lines  |  [TEXT/MPS ]
  1. #include "TDemoDocument.h"
  2.  
  3. const CStr255 kTheLineToPrint = "Another amazing MacApp program!";
  4.  
  5. //----------------------------------------------------------------------------------------
  6. // TDemoDocument::Initialize: 
  7. //----------------------------------------------------------------------------------------
  8. #pragma segment MAOpen
  9. pascal void TDemoDocument::Initialize()
  10. {
  11.     inherited::Initialize();
  12.     fLineCount = 0;
  13.     fReportPrinter = nil;
  14.     fLineCountText = nil;
  15. }
  16. //----------------------------------------------------------------------------------------
  17. // TDemoDocument::IDemoDocument: 
  18. //----------------------------------------------------------------------------------------
  19. #pragma segment MAOpen
  20. pascal void TDemoDocument::IDemoDocument(TFile* itsFile, OSType itsScrapType)
  21. {
  22.     FailInfo    fi;
  23.     
  24.     this->IFileBasedDocument(itsFile, itsScrapType);
  25.     
  26.     fSaveUserSelection = false;     // Don't have one so there's nothing to save
  27.     
  28.     if(fi.Try()) {
  29.         fReportPrinter = new TReportPrinter;
  30.         fReportPrinter->IReportPrinter("\pmonaco",    // Font
  31.                         normal,                     // Face
  32.                         9,                             // Size
  33.                         72,                         // Left margin
  34.                         648,                         // Bottom Margin
  35.                         true);                        // do auto-FF
  36.         fi.Success();
  37.     }
  38.     else {
  39.         fReportPrinter = (TReportPrinter *)FreeIfObject(fReportPrinter);
  40.         fi.ReSignal();
  41.     }
  42. }
  43.  
  44.  
  45. //----------------------------------------------------------------------------------------
  46. // TDemoDocument::DoMakeViews: 
  47. //----------------------------------------------------------------------------------------
  48. #pragma segment MAOpen
  49.  
  50. pascal void TDemoDocument::DoMakeViews(Boolean /*forPrinting*/)
  51. {
  52.     TWindow *aWindow;
  53.     FailInfo    fi;
  54.  
  55.     VOLATILE(aWindow);
  56.     
  57.     if(fi.Try()) {
  58.         aWindow = gViewServer->NewTemplateWindow(kMainView, this);
  59.         fLineCountText = (TNumberText *)aWindow->FindSubView(kNumberOfLines);
  60.         fLineCountText->SetValue(fLineCount, true);
  61.         fi.Success();
  62.     }
  63.     else {
  64.         fLineCountText = (TNumberText *) FreeIfObject(fLineCountText);
  65.         fi.ReSignal();
  66.     }
  67. } 
  68.  
  69. //----------------------------------------------------------------------------------------
  70. // TDemoDocument::DoRead: 
  71. //----------------------------------------------------------------------------------------
  72. #pragma segment MAReadFile
  73.  
  74. pascal void TDemoDocument::DoRead(TFile* aFile, Boolean /*forPrinting*/)
  75. {        
  76.     // Read in the long number of lines we'll be printing
  77.     
  78.     long    lineCount;
  79.     long    bytes = sizeof(long);
  80.  
  81.     aFile->ReadData(&lineCount, bytes);
  82.     fLineCount = lineCount;
  83. } 
  84. //----------------------------------------------------------------------------------------
  85. // TDemoDocument::DoWrite: 
  86. //----------------------------------------------------------------------------------------
  87. #pragma segment MAReadFile
  88. pascal void TDemoDocument::DoWrite(TFile* aFile, Boolean /*makingCopy*/)
  89. {    
  90.     // First, get the current value from the view
  91.  
  92.     long    lineCount = fLineCount = fLineCountText->GetValue();    
  93.     long    bytes = sizeof(long);
  94.     
  95.     aFile->WriteData(&lineCount, bytes);    // and whip it onto the disk    
  96. } 
  97.  
  98. //----------------------------------------------------------------------------------------
  99. // TDemoDocument::DoMenuCommand:
  100. //----------------------------------------------------------------------------------------
  101. #pragma segment MASelCommand
  102. pascal void TDemoDocument::DoMenuCommand(CommandNumber aCommandNumber)
  103. {
  104.     long    lineCount;
  105.     
  106.     switch(aCommandNumber)
  107.     {
  108.         case cPageSetup:
  109.             fReportPrinter->HandlePageSetup();
  110.             break;
  111.     
  112.         case cPrint:
  113.             lineCount = fLineCountText->GetValue();    // get current value
  114.             fReportPrinter->SetDocumentName(fTitle);    
  115.             if(fReportPrinter->StartReport(aCommandNumber)) {
  116.                 fReportPrinter->PrintHeader();
  117.                 
  118.         // Your code to feed lines to the report printer goes here
  119.         // (or better yet, all this should be inside a command)
  120.         // this little example just prints a bunch of lines, all the same
  121.         
  122.                 for(long i=0;i<lineCount;i++) 
  123.                     fReportPrinter->PrintALine(kTheLineToPrint, true);
  124.                 
  125.                 fReportPrinter->EndReport();
  126.             }
  127.             break;
  128.         
  129.         default:
  130.             inherited::DoMenuCommand(aCommandNumber);
  131.             break;
  132.     }
  133. }
  134.  
  135. //----------------------------------------------------------------------------------------
  136. // TDemoDocument::DoSetupMenus: 
  137. //----------------------------------------------------------------------------------------
  138. #pragma segment MAEvtHandlerRes
  139. pascal void TDemoDocument::DoSetupMenus()
  140. {
  141.     inherited::DoSetupMenus();
  142.     Enable(cSave, true);
  143.     Enable(cPageSetup, true);
  144.     Enable(cPrint, true);
  145. } 
  146.